home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Updaters / Overture 2.0.2 / Overture 2.0.2.rsrc / TEXT_130_Pict Dictionary.txt < prev    next >
Text File  |  1997-06-15  |  2KB  |  101 lines
  1. pse
  2. /OvDict 50 dict def
  3. OvDict begin
  4.  
  5. /Bdf {bind def} bind def
  6. /Clw {currentlinewidth} Bdf
  7. /Cp  {closepath} Bdf
  8. /CPt  {currentpoint} Bdf
  9. /Ct  {curveto} Bdf
  10. /Gr  {grestore} Bdf
  11. /Gs  {gsave} Bdf
  12. /Lt  {lineto} Bdf
  13. /Mt  {moveto} Bdf
  14. /Np  {newpath} Bdf
  15. /Rmt {rmoveto} Bdf
  16. /Sk  {stroke} Bdf
  17. /Slw {setlinewidth} Bdf
  18. /Sw  {stringwidth pop} Bdf
  19. /Tx      {show} Bdf
  20. /Get  { exch def } Bdf
  21. /Char 1 string def
  22.  
  23. /RChAt
  24. { /RJ Get /Ch Get /EP Get
  25. Char 0 Ch put
  26. RJ 0 ne { /EP EP Char Sw sub def } if
  27. /EP EP CPt pop add def
  28. { Char Tx
  29. CPt pop EP ge {exit} if
  30. } loop
  31. RJ 0 ne { EP CPt exch pop Mt Char Tx } if
  32. } Bdf
  33.  
  34. /ASlur
  35. { 
  36. CPt translate
  37. /SP Get
  38. /Y3 Get /X3 Get /Y2 Get /X2 Get
  39. /Y1 Get /X1 Get /Y0 Get /X0 Get
  40. Gs
  41. .25 Slw
  42. Np
  43. X0 Y0 Mt X1 Y1 X2 Y2 X3 Y3 Ct
  44. X2 Y2 SP add X1 Y1 SP add X0 Y0 Ct
  45. fill Gr
  46. } Bdf
  47.  
  48. /ADSlur
  49. CPt translate
  50. { /SP Get
  51. /Y3 Get /X3 Get /Y2 Get /X2 Get
  52. /Y1 Get /X1 Get /Y0 Get /X0 Get
  53. Np
  54. .25 Slw
  55. [1 2] 0 setdash
  56. { SP 0 gt
  57.   { X0 Y0 Mt X1 Y1 SP add X2 Y2 SP add X3 Y3 Ct Sk
  58.     /SP SP .25 sub def }{exit} ifelse
  59. } loop
  60. [] 0 setdash
  61. } Bdf
  62.  
  63. /AStaff
  64. { /SP Get /NL Get /Ch Get /EP Get
  65. /X0 CPt pop def
  66. /Y0 CPt exch pop def
  67. Char 0 Ch put
  68. /EP X0 EP add Char Sw sub def
  69. 1 1 NL { pop
  70. X0 Y0 Mt
  71. {
  72. Char Tx
  73. CPt pop EP ge {exit} if
  74. } loop
  75. EP Y0 Mt Char Tx
  76. /Y0 Y0 SP add def } for
  77. } Bdf
  78.  
  79. /ABeam
  80. {
  81. CPt translate
  82. /Ru Get /Lu Get /Bh Get /Ev Get /Eh Get /Sv Get /Sh Get /Pe Get /Ps Get
  83. Lu 0 ne { /Sh Sh (l) Sw add (m) Sw sub def } if
  84. Ru 0 ne { /Eh Eh (l) Sw add def } if
  85. Gs
  86. Sh -10000 Eh 10000 Clip
  87. Bh Slw 2 setlinecap
  88. /Bh Bh 2 div def
  89. /Sv Sv Bh sub def
  90. /Ev Ev Bh sub def
  91. Ps Sv Mt Pe Ev Lt Sk
  92. Gr
  93. } Bdf
  94.  
  95. %%IncludeFont: Aloisen
  96. /MF { /FS Get /Aloisen findfont FS scalefont setfont } Bdf
  97.  
  98. end
  99. psb
  100.  
  101.